home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CoolMacStacks.sea / Cool Mac Stacks / Information Enhancement / Phone->Acronym / cards.xml < prev    next >
Text File  |  1991-12-19  |  16KB  |  466 lines
  1. card_3007.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>3007</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_2133.pbm</bitmap>
  8.     <cantDelete> <false /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2672</owner>
  12.     <link rel="stylesheet" type="text/css" href="stylesheet_3232.css" />
  13.     <part>
  14.         <id>21</id>
  15.         <type>button</type>
  16.         <visible> <true /> </visible>
  17.         <reserved5> 0 </reserved5>
  18.         <reserved4> 0 </reserved4>
  19.         <reserved3> 0 </reserved3>
  20.         <reserved2> 0 </reserved2>
  21.         <reserved1> 0 </reserved1>
  22.         <enabled> <true /> </enabled>
  23.         <rect>
  24.             <left>91</left>
  25.             <top>130</top>
  26.             <right>186</right>
  27.             <bottom>150</bottom>
  28.         </rect>
  29.         <style>roundrect</style>
  30.         <showName> <true /> </showName>
  31.         <highlight> <false /> </highlight>
  32.         <autoHighlight> <true /> </autoHighlight>
  33.         <sharedHighlight> <true /> </sharedHighlight>
  34.         <family>0</family>
  35.         <titleWidth>0</titleWidth>
  36.         <icon>0</icon>
  37.         <textAlign>center</textAlign>
  38.         <font>Chicago</font>
  39.         <textSize>12</textSize>
  40.         <textStyle>plain</textStyle>
  41.         <name>--Convert-></name>
  42.         <script>on mouseUpGlobal CntIf cd fld "PhoneNum" contains "0" or cd fld "PhoneNum" contains "1" thenAnswer "Yo, I can't anything with a 0 or 1 "else if cd fld "PhoneNum" contains "(" or cd fld "PhoneNum" contains "-" thenAnswer "Please, only the numbers in the phone number, not the ('s or -'s"Elseif the number of chars in cd fld "PhoneNum" ‚â• 4 thenanswer "This could take awhile. OK?" with "Cancel" or "OK"if it is "Cancel" then exit mouseUpend ifset cursor to watchPut Empty into Cd Fld "Acronyms"Put Empty into SRepeat with i = 1 to the number of chars in cd fld "PhoneNum"Put GetChar(char i of cd fld "PhoneNum",0) After SEnd RepeatPut 0 into CntLock ScreenRecurseDigit S, the number of chars in cd fld "PhoneNum"put donebeepUnlock ScreenEnd ifend mouseUpOn RecurseDigit S,D-- S=String, D=digitIf D > 0 thenRecurseDigit CycleChar(S,D,1), D-1RecurseDigit CycleChar(S,D,2), D-1RecurseDigit CycleChar(S,D,3), D-1ElseGlobal CntPut Cnt+1 into cntif (Cnt mod 100) = 0 then put "on calculation" && cnt & "..."Put S & Return after cd fld "Acronyms"End ifEnd RecurseDigitFunction CycleChar SS,DD,C-- SS=String, DD=Digit, C=CyclePut Getchar(char DD of cd fld "PhoneNum",C) into char DD of SSReturn SSEnd CycleCharFunction GetChar x,y-- x=digit, y=pass, return=letterReturn Char (((x-2)*3)+y) of "abcdefghijklmnoprstuvwxy"End GetChar</script>
  43.     </part>
  44.     <part>
  45.         <id>17</id>
  46.         <type>field</type>
  47.         <visible> <true /> </visible>
  48.         <dontWrap> <false /> </dontWrap>
  49.         <dontSearch> <false /> </dontSearch>
  50.         <sharedText> <false /> </sharedText>
  51.         <fixedLineHeight> <true /> </fixedLineHeight>
  52.         <autoTab> <false /> </autoTab>
  53.         <lockText> <true /> </lockText>
  54.         <rect>
  55.             <left>0</left>
  56.             <top>289</top>
  57.             <right>384</right>
  58.             <bottom>307</bottom>
  59.         </rect>
  60.         <style>transparent</style>
  61.         <autoSelect> <false /> </autoSelect>
  62.         <showLines> <false /> </showLines>
  63.         <wideMargins> <false /> </wideMargins>
  64.         <multipleLines> <false /> </multipleLines>
  65.         <reservedFamily> 0 </reservedFamily>
  66.         <titleWidth>0</titleWidth>
  67.         <icon>0</icon>
  68.         <textAlign>left</textAlign>
  69.         <font>Times</font>
  70.         <textSize>12</textSize>
  71.         <textStyle>plain</textStyle>
  72.         <textHeight>16</textHeight>
  73.         <name>C</name>
  74.         <script></script>
  75.     </part>
  76.     <part>
  77.         <id>1</id>
  78.         <type>field</type>
  79.         <visible> <true /> </visible>
  80.         <dontWrap> <true /> </dontWrap>
  81.         <dontSearch> <false /> </dontSearch>
  82.         <sharedText> <false /> </sharedText>
  83.         <fixedLineHeight> <false /> </fixedLineHeight>
  84.         <autoTab> <false /> </autoTab>
  85.         <lockText> <true /> </lockText>
  86.         <rect>
  87.             <left>188</left>
  88.             <top>130</top>
  89.             <right>267</right>
  90.             <bottom>261</bottom>
  91.         </rect>
  92.         <style>scrolling</style>
  93.         <autoSelect> <false /> </autoSelect>
  94.         <showLines> <false /> </showLines>
  95.         <wideMargins> <false /> </wideMargins>
  96.         <multipleLines> <false /> </multipleLines>
  97.         <reservedFamily> 0 </reservedFamily>
  98.         <titleWidth>0</titleWidth>
  99.         <icon>0</icon>
  100.         <textAlign>left</textAlign>
  101.         <font>Monaco</font>
  102.         <textSize>9</textSize>
  103.         <textStyle>plain</textStyle>
  104.         <textHeight>12</textHeight>
  105.         <name>Acronyms</name>
  106.         <script>On mouseupGlobal TickCntIf the Ticks - TickCnt < 60 then Put (the selection) & return after cd fld "Results"Else  Select the Clickline--Put line (word 2 of the selectedline) of cd fld "Acronyms" & return after cd fld 3Put the ticks into TickCntEnd MouseUp</script>
  107.     </part>
  108.     <part>
  109.         <id>3</id>
  110.         <type>field</type>
  111.         <visible> <true /> </visible>
  112.         <dontWrap> <true /> </dontWrap>
  113.         <dontSearch> <false /> </dontSearch>
  114.         <sharedText> <false /> </sharedText>
  115.         <fixedLineHeight> <false /> </fixedLineHeight>
  116.         <autoTab> <false /> </autoTab>
  117.         <lockText> <false /> </lockText>
  118.         <rect>
  119.             <left>0</left>
  120.             <top>131</top>
  121.             <right>87</right>
  122.             <bottom>149</bottom>
  123.         </rect>
  124.         <style>rectangle</style>
  125.         <autoSelect> <false /> </autoSelect>
  126.         <showLines> <false /> </showLines>
  127.         <wideMargins> <false /> </wideMargins>
  128.         <multipleLines> <false /> </multipleLines>
  129.         <reservedFamily> 0 </reservedFamily>
  130.         <titleWidth>0</titleWidth>
  131.         <icon>0</icon>
  132.         <textAlign>center</textAlign>
  133.         <font>Chicago</font>
  134.         <textSize>12</textSize>
  135.         <textStyle>plain</textStyle>
  136.         <textHeight>19</textHeight>
  137.         <name>PhoneNum</name>
  138.         <script></script>
  139.     </part>
  140.     <part>
  141.         <id>5</id>
  142.         <type>field</type>
  143.         <visible> <true /> </visible>
  144.         <dontWrap> <false /> </dontWrap>
  145.         <dontSearch> <false /> </dontSearch>
  146.         <sharedText> <false /> </sharedText>
  147.         <fixedLineHeight> <false /> </fixedLineHeight>
  148.         <autoTab> <false /> </autoTab>
  149.         <lockText> <false /> </lockText>
  150.         <rect>
  151.             <left>268</left>
  152.             <top>130</top>
  153.             <right>383</right>
  154.             <bottom>261</bottom>
  155.         </rect>
  156.         <style>scrolling</style>
  157.         <autoSelect> <false /> </autoSelect>
  158.         <showLines> <false /> </showLines>
  159.         <wideMargins> <false /> </wideMargins>
  160.         <multipleLines> <false /> </multipleLines>
  161.         <reservedFamily> 0 </reservedFamily>
  162.         <titleWidth>0</titleWidth>
  163.         <icon>0</icon>
  164.         <textAlign>left</textAlign>
  165.         <font>Chicago</font>
  166.         <textSize>12</textSize>
  167.         <textStyle>plain</textStyle>
  168.         <textHeight>16</textHeight>
  169.         <name>Results</name>
  170.         <script></script>
  171.     </part>
  172.     <part>
  173.         <id>11</id>
  174.         <type>button</type>
  175.         <visible> <true /> </visible>
  176.         <reserved5> 0 </reserved5>
  177.         <reserved4> 0 </reserved4>
  178.         <reserved3> 0 </reserved3>
  179.         <reserved2> 0 </reserved2>
  180.         <reserved1> 0 </reserved1>
  181.         <enabled> <true /> </enabled>
  182.         <rect>
  183.             <left>280</left>
  184.             <top>264</top>
  185.             <right>362</right>
  186.             <bottom>285</bottom>
  187.         </rect>
  188.         <style>roundrect</style>
  189.         <showName> <true /> </showName>
  190.         <highlight> <false /> </highlight>
  191.         <autoHighlight> <false /> </autoHighlight>
  192.         <sharedHighlight> <true /> </sharedHighlight>
  193.         <family>0</family>
  194.         <titleWidth>0</titleWidth>
  195.         <icon>0</icon>
  196.         <textAlign>center</textAlign>
  197.         <font>Chicago</font>
  198.         <textSize>12</textSize>
  199.         <textStyle>plain</textStyle>
  200.         <name>Clear</name>
  201.         <script>on mouseUpPut empty into cd fld "Results"end mouseUp</script>
  202.     </part>
  203.     <part>
  204.         <id>13</id>
  205.         <type>field</type>
  206.         <visible> <true /> </visible>
  207.         <dontWrap> <false /> </dontWrap>
  208.         <dontSearch> <false /> </dontSearch>
  209.         <sharedText> <false /> </sharedText>
  210.         <fixedLineHeight> <true /> </fixedLineHeight>
  211.         <autoTab> <false /> </autoTab>
  212.         <lockText> <true /> </lockText>
  213.         <rect>
  214.             <left>0</left>
  215.             <top>95</top>
  216.             <right>87</right>
  217.             <bottom>127</bottom>
  218.         </rect>
  219.         <style>opaque</style>
  220.         <autoSelect> <false /> </autoSelect>
  221.         <showLines> <false /> </showLines>
  222.         <wideMargins> <false /> </wideMargins>
  223.         <multipleLines> <false /> </multipleLines>
  224.         <reservedFamily> 0 </reservedFamily>
  225.         <titleWidth>0</titleWidth>
  226.         <icon>0</icon>
  227.         <textAlign>left</textAlign>
  228.         <font>Chicago</font>
  229.         <textSize>12</textSize>
  230.         <textStyle>plain</textStyle>
  231.         <textHeight>16</textHeight>
  232.         <name>I1</name>
  233.         <script></script>
  234.     </part>
  235.     <part>
  236.         <id>14</id>
  237.         <type>field</type>
  238.         <visible> <true /> </visible>
  239.         <dontWrap> <false /> </dontWrap>
  240.         <dontSearch> <false /> </dontSearch>
  241.         <sharedText> <false /> </sharedText>
  242.         <fixedLineHeight> <true /> </fixedLineHeight>
  243.         <autoTab> <false /> </autoTab>
  244.         <lockText> <true /> </lockText>
  245.         <rect>
  246.             <left>89</left>
  247.             <top>95</top>
  248.             <right>185</right>
  249.             <bottom>127</bottom>
  250.         </rect>
  251.         <style>opaque</style>
  252.         <autoSelect> <false /> </autoSelect>
  253.         <showLines> <false /> </showLines>
  254.         <wideMargins> <false /> </wideMargins>
  255.         <multipleLines> <false /> </multipleLines>
  256.         <reservedFamily> 0 </reservedFamily>
  257.         <titleWidth>0</titleWidth>
  258.         <icon>0</icon>
  259.         <textAlign>center</textAlign>
  260.         <font>Chicago</font>
  261.         <textSize>12</textSize>
  262.         <textStyle>plain</textStyle>
  263.         <textHeight>16</textHeight>
  264.         <name>i2</name>
  265.         <script></script>
  266.     </part>
  267.     <part>
  268.         <id>15</id>
  269.         <type>field</type>
  270.         <visible> <true /> </visible>
  271.         <dontWrap> <false /> </dontWrap>
  272.         <dontSearch> <false /> </dontSearch>
  273.         <sharedText> <false /> </sharedText>
  274.         <fixedLineHeight> <true /> </fixedLineHeight>
  275.         <autoTab> <false /> </autoTab>
  276.         <lockText> <true /> </lockText>
  277.         <rect>
  278.             <left>186</left>
  279.             <top>95</top>
  280.             <right>267</right>
  281.             <bottom>127</bottom>
  282.         </rect>
  283.         <style>opaque</style>
  284.         <autoSelect> <false /> </autoSelect>
  285.         <showLines> <false /> </showLines>
  286.         <wideMargins> <false /> </wideMargins>
  287.         <multipleLines> <false /> </multipleLines>
  288.         <reservedFamily> 0 </reservedFamily>
  289.         <titleWidth>0</titleWidth>
  290.         <icon>0</icon>
  291.         <textAlign>center</textAlign>
  292.         <font>Chicago</font>
  293.         <textSize>12</textSize>
  294.         <textStyle>plain</textStyle>
  295.         <textHeight>16</textHeight>
  296.         <name>i3</name>
  297.         <script></script>
  298.     </part>
  299.     <part>
  300.         <id>16</id>
  301.         <type>field</type>
  302.         <visible> <true /> </visible>
  303.         <dontWrap> <false /> </dontWrap>
  304.         <dontSearch> <false /> </dontSearch>
  305.         <sharedText> <false /> </sharedText>
  306.         <fixedLineHeight> <true /> </fixedLineHeight>
  307.         <autoTab> <false /> </autoTab>
  308.         <lockText> <true /> </lockText>
  309.         <rect>
  310.             <left>5</left>
  311.             <top>24</top>
  312.             <right>330</right>
  313.             <bottom>63</bottom>
  314.         </rect>
  315.         <style>opaque</style>
  316.         <autoSelect> <false /> </autoSelect>
  317.         <showLines> <false /> </showLines>
  318.         <wideMargins> <false /> </wideMargins>
  319.         <multipleLines> <false /> </multipleLines>
  320.         <reservedFamily> 0 </reservedFamily>
  321.         <titleWidth>0</titleWidth>
  322.         <icon>0</icon>
  323.         <textAlign>left</textAlign>
  324.         <font>Geneva</font>
  325.         <textSize>9</textSize>
  326.         <textStyle>plain</textStyle>
  327.         <textHeight>12</textHeight>
  328.         <name></name>
  329.         <script></script>
  330.     </part>
  331.     <part>
  332.         <id>19</id>
  333.         <type>button</type>
  334.         <visible> <true /> </visible>
  335.         <reserved5> 0 </reserved5>
  336.         <reserved4> 0 </reserved4>
  337.         <reserved3> 0 </reserved3>
  338.         <reserved2> 0 </reserved2>
  339.         <reserved1> 0 </reserved1>
  340.         <enabled> <true /> </enabled>
  341.         <rect>
  342.             <left>350</left>
  343.             <top>22</top>
  344.             <right>383</right>
  345.             <bottom>47</bottom>
  346.         </rect>
  347.         <style>opaque</style>
  348.         <showName> <false /> </showName>
  349.         <highlight> <false /> </highlight>
  350.         <autoHighlight> <true /> </autoHighlight>
  351.         <sharedHighlight> <true /> </sharedHighlight>
  352.         <family>0</family>
  353.         <titleWidth>0</titleWidth>
  354.         <icon>2478</icon>
  355.         <textAlign>center</textAlign>
  356.         <font>Chicago</font>
  357.         <textSize>12</textSize>
  358.         <textStyle>plain</textStyle>
  359.         <name>About</name>
  360.         <script>on mouseUpShow cd fld "Enhance"end mouseUp</script>
  361.     </part>
  362.     <part>
  363.         <id>20</id>
  364.         <type>field</type>
  365.         <visible> <true /> </visible>
  366.         <dontWrap> <false /> </dontWrap>
  367.         <dontSearch> <false /> </dontSearch>
  368.         <sharedText> <false /> </sharedText>
  369.         <fixedLineHeight> <true /> </fixedLineHeight>
  370.         <autoTab> <false /> </autoTab>
  371.         <lockText> <true /> </lockText>
  372.         <rect>
  373.             <left>268</left>
  374.             <top>95</top>
  375.             <right>383</right>
  376.             <bottom>129</bottom>
  377.         </rect>
  378.         <style>opaque</style>
  379.         <autoSelect> <false /> </autoSelect>
  380.         <showLines> <false /> </showLines>
  381.         <wideMargins> <false /> </wideMargins>
  382.         <multipleLines> <false /> </multipleLines>
  383.         <reservedFamily> 0 </reservedFamily>
  384.         <titleWidth>0</titleWidth>
  385.         <icon>0</icon>
  386.         <textAlign>left</textAlign>
  387.         <font>Chicago</font>
  388.         <textSize>12</textSize>
  389.         <textStyle>plain</textStyle>
  390.         <textHeight>16</textHeight>
  391.         <name>i4</name>
  392.         <script></script>
  393.     </part>
  394.     <part>
  395.         <id>18</id>
  396.         <type>field</type>
  397.         <visible> <false /> </visible>
  398.         <dontWrap> <false /> </dontWrap>
  399.         <dontSearch> <false /> </dontSearch>
  400.         <sharedText> <false /> </sharedText>
  401.         <fixedLineHeight> <true /> </fixedLineHeight>
  402.         <autoTab> <false /> </autoTab>
  403.         <lockText> <true /> </lockText>
  404.         <rect>
  405.             <left>0</left>
  406.             <top>0</top>
  407.             <right>384</right>
  408.             <bottom>309</bottom>
  409.         </rect>
  410.         <style>scrolling</style>
  411.         <autoSelect> <false /> </autoSelect>
  412.         <showLines> <false /> </showLines>
  413.         <wideMargins> <true /> </wideMargins>
  414.         <multipleLines> <false /> </multipleLines>
  415.         <reservedFamily> 0 </reservedFamily>
  416.         <titleWidth>0</titleWidth>
  417.         <icon>0</icon>
  418.         <textAlign>left</textAlign>
  419.         <font>Times</font>
  420.         <textSize>12</textSize>
  421.         <textStyle>plain</textStyle>
  422.         <textHeight>16</textHeight>
  423.         <name>Enhance</name>
  424.         <script>On Mouseupset the scroll of me to 0Set the visible of me to falseEnd Mouseup</script>
  425.     </part>
  426.     <content>
  427.         <layer>card</layer>
  428.         <id>13</id>
  429.         <text>Enter Phone Number:</text>
  430.     </content>
  431.     <content>
  432.         <layer>card</layer>
  433.         <id>14</id>
  434.         <text>Click Here:</text>
  435.     </content>
  436.     <content>
  437.         <layer>card</layer>
  438.         <id>15</id>
  439.         <text>Result:</text>
  440.     </content>
  441.     <content>
  442.         <layer>card</layer>
  443.         <id>17</id>
  444.         <text>  Copyright 1991 by Peter Baum                                       All Rights Reserved</text>
  445.     </content>
  446.     <content>
  447.         <layer>card</layer>
  448.         <id>16</id>
  449.         <text><span class="style5">elcome to the </span><span class="style6">Phone Number to Acronym Converter</span><span class="style5">. This stack displays all the possible letter combinations that could be used to dial a specific phone number. Just follow the numbers below:</span></text>
  450.     </content>
  451.     <content>
  452.         <layer>card</layer>
  453.         <id>18</id>
  454.         <text><span class="style1"></span><span class="style4">Brought to you by:</span><span class="style1"></span><span class="style3">Peter Baum (America Online Hypercard Forum Leader)21907 Almaden Ave.Cupertino, CA. 95014-2803(408)253-9238 => A Key Bet</span><span class="style1">For more great stacks, sign onto </span><span class="style3">America Online</span><span class="style1">. Use the keyword MHC to get to the Hypercard forum. We have </span><span class="style3">thousands</span><span class="style1"> of stack available for downloading! Call (800)827-6364  for more information about America Online.The technique used in the script that does the conversion is called </span><span class="style2">Recursion</span><span class="style1">.  The Handler breaks the task down into simpler problems...and then calls itself to handle them. The Handler continues to call itself until the problem is broken down into its simplest elements... at which points it solves it. The result is then returned back up the chain to all the handlers that were called earlier.Wouldn‚Äôt it be great if someone developed a reverse spelling checker that would find only the words spelled right, instead of the ones spelled wrong? Then you could just plug in the results and have it find all the ‚Äòreal‚Äô words.                                    </span><span class="style3">Click Here to Continue</span><span class="style1"></span></text>
  455.     </content>
  456.     <content>
  457.         <layer>card</layer>
  458.         <id>20</id>
  459.         <text>Double-click the ones you like:</text>
  460.     </content>
  461.     <name></name>
  462.     <script>on openCardtabKeyend openCardfunction stripnonNumbers stringput empty into outputStringrepeat with i = 1 to the number of chars in stringif char i of string is in ("0123456789") then put char i of string after outputStringend repeatreturn outputStringend stripnonNumbers</script>
  463. </card>
  464.  
  465.  
  466.